home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / SASETUP.MSI / F74054_default.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  11.3 KB  |  400 lines
  1. <%    '==================================================
  2.     ' Microsoft Server Appliance
  3.     '
  4.     ' Default web page
  5.     '
  6.     ' Copyright (c) Microsoft Corporation.  All rights reserved.
  7.     '================================================== %>
  8.  
  9. <% Option Explicit %>
  10.  
  11. <!-- Copyright (c) Microsoft Corporation.  All rights reserved.-->
  12.  
  13. <%
  14.  
  15.     '
  16.     ' Set the Language ID for this session based on the browser language
  17.     '
  18.     Call SetLCID ()
  19.     '
  20.     ' Set CodePage for the Server, this will always be UTF-8
  21.     '
  22.     Session.CodePage = 65001
  23.     Response.CharSet = "utf-8"
  24.  
  25.     '
  26.     ' get a handle to the Localization Manager
  27.     '
  28.     Dim objLocMgr            
  29.     Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
  30.     if Err.number <> 0 then
  31.         Response.Write  "Error in localizing the web content "
  32.         Response.End    
  33.      end if
  34.  
  35.  
  36.        
  37.     '
  38.     ' set the main web site page name where we will get re-directed in case client-side scripting is enabled
  39.     '
  40.     Dim G_sURL
  41.     G_sURL = "/admin/main.asp"
  42.  
  43.     Dim varReplacementStrings
  44.     Dim strSourceName 
  45.     strSourceName = "sakitmsg.dll"
  46.  
  47.     '
  48.     ' get the strings from the resource DLL
  49.     '
  50.     Dim L_CLIENTSIDESCRIPT_TEXT1
  51.     L_CLIENTSIDESCRIPT_TEXT1 = objLocMgr.GetString(strSourceName, "&H4001003C",varReplacementStrings)
  52.  
  53.     Dim L_CLIENTSIDESCRIPT_TEXT2
  54.     L_CLIENTSIDESCRIPT_TEXT2 = objLocMgr.GetString(strSourceName, "&H4001003D",varReplacementStrings)     
  55.     
  56.     Dim L_CLIENTSIDESCRIPT_TEXT3
  57.     L_CLIENTSIDESCRIPT_TEXT3 = objLocMgr.GetString(strSourceName, "&H4001003E",varReplacementStrings)
  58.     
  59.     Dim L_CLIENTSIDESCRIPT_TEXT4
  60.     L_CLIENTSIDESCRIPT_TEXT4 = objLocMgr.GetString(strSourceName, "&H4001003F",varReplacementStrings)
  61.     
  62.     Dim L_CLIENTSIDESCRIPT_TEXT5
  63.     L_CLIENTSIDESCRIPT_TEXT5 = objLocMgr.GetString(strSourceName, "&H40010040",varReplacementStrings)
  64.     
  65.     Dim L_CLIENTSIDESCRIPT_TEXT6
  66.     L_CLIENTSIDESCRIPT_TEXT6 = objLocMgr.GetString(strSourceName, "&H40010041",varReplacementStrings)
  67.     
  68.     Dim L_CLIENTSIDESCRIPT_TEXT7
  69.     L_CLIENTSIDESCRIPT_TEXT7 = objLocMgr.GetString(strSourceName, "&H40010042",varReplacementStrings)
  70.  
  71.     '----------------------------------------------------------------------------
  72.     '
  73.     ' Function : getBroswerLanguage
  74.     ' 
  75.     ' Synopsis : Serves in getting Browser Default Language ID
  76.     '
  77.     ' Arguments: None
  78.     '
  79.     ' Returns  : ISO 693 name
  80.     '
  81.     '----------------------------------------------------------------------------
  82.  
  83.     Function getBrowserLanguage
  84.  
  85.     Err.Clear
  86.     Dim strAcceptLanguage
  87.     Dim iPos
  88.   
  89.     strAcceptLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
  90.     iPos = InStr(1, strAcceptLanguage, ",")
  91.     If iPos > 0 Then
  92.         strAcceptLanguage = Left(strAcceptLanguage, iPos - 1)
  93.     End If
  94.  
  95.     getBrowserLanguage = LCase(strAcceptLanguage)
  96.     End Function
  97.  
  98.     '----------------------------------------------------------------------------
  99.     '
  100.     ' Subroutine: SetLCID
  101.     ' 
  102.     ' Synopsis : Sets the LCID for the current session based on the browser language
  103.     '            this is needed to that we correctly encode what is passed back to the 
  104.     '            browser
  105.     '
  106.     ' Arguments: None
  107.     '
  108.     '
  109.     '----------------------------------------------------------------------------
  110.     Sub SetLCID()
  111.     
  112.     Dim strLCID
  113.     
  114.     Select Case getBrowserLanguage
  115.     
  116.     Case "af"
  117.        strLCID = 1078  ' Afrikaans 
  118.     Case "sq"
  119.        strLCID = 1052  ' Albanian 
  120.     Case "ar-sa"
  121.        strLCID = 1025  ' Arabic(Saudi Arabia) 
  122.     Case "ar-iq"
  123.       strLCID = 2049  ' Arabic(Iraq) 
  124.     Case "ar-eg"
  125.       strLCID = 3073  ' Arabic(Egypt) 
  126.     Case "ar-ly"
  127.       strLCID = 4097  ' Arabic(Libya) 
  128.     Case "ar-dz"
  129.       strLCID = 5121  ' Arabic(Algeria) 
  130.     Case "ar-ma"
  131.       strLCID = 6145  ' Arabic(Morocco) 
  132.     Case "ar-tn"
  133.       strLCID = 7169  ' Arabic(Tunisia) 
  134.     Case "ar-om"
  135.       strLCID = 8193  ' Arabic(Oman) 
  136.     Case "ar-ye"
  137.       strLCID = 9217  ' Arabic(Yemen) 
  138.     Case "ar-sy"
  139.       strLCID = 10241 ' Arabic(Syria) 
  140.     Case "ar-jo"
  141.       strLCID = 11265 ' Arabic(Jordan) 
  142.     Case "ar-lb"
  143.       strLCID = 12289 ' Arabic(Lebanon) 
  144.     Case "ar-kw"
  145.       strLCID = 13313 ' Arabic(Kuwait) 
  146.     Case "ar-ae"
  147.       strLCID = 14337 ' Arabic(U.A.E.) 
  148.     Case "ar-bh"
  149.       strLCID = 15361 ' Arabic(Bahrain) 
  150.     Case "ar-qa"
  151.       strLCID = 16385 ' Arabic(Qatar) 
  152.     Case "eu"
  153.       strLCID = 1069  ' Basque 
  154.     Case "bg"
  155.       strLCID = 1026  ' Bulgarian 
  156.     Case "be"
  157.       strLCID = 1059  ' Belarusian 
  158.     Case "ca"
  159.       strLCID = 1027  ' Catalan 
  160.     Case "zh-tw"
  161.       strLCID = 1028  ' Chinese(Taiwan) 
  162.     Case "zh-cn"
  163.       strLCID = 2052  ' Chinese(PRC) 
  164.     Case "zh-hk"
  165.       strLCID = 3076  ' Chinese(Hong Kong) 
  166.     Case "zh-sg"
  167.       strLCID = 4100  ' Chinese(Singapore) 
  168.     Case "hr"
  169.       strLCID = 1050  ' Croatian 
  170.     Case "cs"
  171.       strLCID = 1029  ' Czech 
  172.     Case "da"
  173.       strLCID = 1030  ' Danish 
  174.     Case "n"
  175.       strLCID = 1043  ' Dutch(Standard) 
  176.     Case "nl-be"
  177.       strLCID = 2067  ' Dutch(Belgian) 
  178.     Case "en"
  179.       strLCID = 1033  ' English 
  180.     Case "en-us"
  181.       strLCID = 1033  ' English(United States) 
  182.     Case "en-gb"
  183.       strLCID = 2057  ' English(British) 
  184.     Case "en-au"
  185.       strLCID = 3081  ' English(Australian) 
  186.     Case "en-ca"
  187.       strLCID = 4105  ' English(Canadian) 
  188.     Case "en-nz"
  189.       strLCID = 5129  ' English(New Zealand) 
  190.     Case "en-ie"
  191.       strLCID = 6153  ' English(Ireland) 
  192.     Case "en-za"
  193.       strLCID = 7177  ' English(South Africa) 
  194.     Case "en-jm"
  195.       strLCID = 8201  ' English(Jamaica) 
  196.     Case "en"
  197.       strLCID = 9225  ' English(Caribbean) 
  198.     Case "en-bz"
  199.       strLCID = 10249 ' English(Belize) 
  200.     Case "en-tt"
  201.       strLCID = 11273 ' English(Trinidad) 
  202.     Case "et"
  203.       strLCID = 1061  ' Estonian 
  204.     Case "fo"
  205.       strLCID = 1080  ' Faeroese 
  206.     Case "fa"
  207.       strLCID = 1065  ' Farsi 
  208.     Case "fi"
  209.       strLCID = 1035  ' Finnish 
  210.     Case "fr"
  211.       strLCID = 1036  ' French(Standard) 
  212.     Case "fr-be"
  213.       strLCID = 2060  ' French(Belgian) 
  214.     Case "fr-ca"
  215.       strLCID = 3084  ' French(Canadian) 
  216.     Case "fr-ch"
  217.       strLCID = 4108  ' French(Swiss) 
  218.     Case "fr-lu"
  219.       strLCID = 5132  ' French(Luxembourg) 
  220.     Case "gd"
  221.       strLCID = 1084  ' Gaelic(Scots) 
  222.     Case "gd-ie"
  223.       strLCID = 2108  ' Gaelic(Irish) 
  224.     Case "de"
  225.       strLCID = 1031  ' German(Standard) 
  226.     Case "de-ch"
  227.       strLCID = 2055  ' German(Swiss) 
  228.     Case "de-at"
  229.       strLCID = 3079  ' German(Austrian) 
  230.     Case "de-lu"
  231.       strLCID = 4103  ' German(Luxembourg) 
  232.     Case "de-li"
  233.       strLCID = 5127  ' German(Liechtenstein) 
  234.     Case "e"
  235.       strLCID = 1032  ' Greek 
  236.     Case "he"
  237.       strLCID = 1037  ' Hebrew 
  238.     Case "hi"
  239.       strLCID = 1081  ' Hindi 
  240.     Case "hu"
  241.       strLCID = 1038  ' Hungarian 
  242.     Case "is"
  243.       strLCID = 1039  ' Icelandic 
  244.     Case "in"
  245.       strLCID = 1057  ' Indonesian 
  246.     Case "it"
  247.       strLCID = 1040  ' Italian(Standard) 
  248.     Case "it-ch"
  249.       strLCID = 2064  ' Italian(Swiss) 
  250.     Case "ja"
  251.       strLCID = 1041  ' Japanese 
  252.     Case "ko"
  253.       strLCID = 1042  ' Korean 
  254.     Case "ko"
  255.       strLCID = 2066  ' Korean(Johab) 
  256.     Case "lv"
  257.       strLCID = 1062  ' Latvian 
  258.     Case "lt"
  259.       strLCID = 1063  ' Lithuanian 
  260.     Case "mk"
  261.       strLCID = 1071  ' Macedonian 
  262.     Case "ms"
  263.       strLCID = 1086  ' Malaysian 
  264.     Case "mt"
  265.       strLCID = 1082  ' Maltese 
  266.     Case "no"
  267.       strLCID = 1044  ' Norwegian(Bokmal) 
  268.     Case "no"
  269.       strLCID = 2068  ' Norwegian(Nynorsk) 
  270.     Case "p"
  271.       strLCID = 1045  ' Polish 
  272.     Case "pt-br"
  273.       strLCID = 1046  ' Portuguese(Brazilian) 
  274.     Case "pt"
  275.       strLCID = 2070  ' Portuguese(Standard) 
  276.     Case "rm"
  277.       strLCID = 1047  ' Rhaeto-Romanic 
  278.     Case "ro"
  279.       strLCID = 1048  ' Romanian 
  280.     Case "ro-mo"
  281.       strLCID = 2072  ' Romanian(Moldavia) 
  282.     Case "ru"
  283.       strLCID = 1049  ' Russian 
  284.     Case "ru-mo"
  285.       strLCID = 2073  ' Russian(Moldavia) 
  286.     Case "sz"
  287.       strLCID = 1083  ' Sami(Lappish) 
  288.     Case "sr"
  289.       strLCID = 3098  ' Serbian(Cyrillic) 
  290.     Case "sr"
  291.       strLCID = 2074  ' Serbian(Latin) 
  292.     Case "sk"
  293.       strLCID = 1051  ' Slovak 
  294.     Case "s"
  295.       strLCID = 1060  ' Slovenian 
  296.     Case "sb"
  297.       strLCID = 1070  ' Sorbian 
  298.     Case "es"
  299.       strLCID = 1034  ' Spanish(Spain - Traditional Sort) 
  300.     Case "es-mx"
  301.       strLCID = 2058  ' Spanish(Mexican) 
  302.     Case "es"
  303.       strLCID = 3082  ' Spanish(Spain - Modern Sort) 
  304.     Case "es-gt"
  305.       strLCID = 4106  ' Spanish(Guatemala) 
  306.     Case "es-cr"
  307.       strLCID = 5130  ' Spanish(Costa Rica) 
  308.     Case "es-pa"
  309.       strLCID = 6154  ' Spanish(Panama) 
  310.     Case "es-do"
  311.       strLCID = 7178  ' Spanish(Dominican Republic) 
  312.     Case "es-ve"
  313.       strLCID = 8202  ' Spanish(Venezuela) 
  314.     Case "es-co"
  315.       strLCID = 9226  ' Spanish(Colombia) 
  316.     Case "es-pe"
  317.       strLCID = 10250 ' Spanish(Peru) 
  318.     Case "es-ar"
  319.       strLCID = 11274 ' Spanish(Argentina) 
  320.     Case "es-ec"
  321.       strLCID = 12298 ' Spanish(Ecuador) 
  322.     Case "es-c"
  323.       strLCID = 13322 ' Spanish(Chile) 
  324.     Case "es-uy"
  325.       strLCID = 14346 ' Spanish(Uruguay) 
  326.     Case "es-py"
  327.       strLCID = 15370 ' Spanish(Paraguay) 
  328.     Case "es-bo"
  329.       strLCID = 16394 ' Spanish(Bolivia) 
  330.     Case "es-sv"
  331.       strLCID = 17418 ' Spanish(El Salvador) 
  332.     Case "es-hn"
  333.       strLCID = 18442 ' Spanish(Honduras) 
  334.     Case "es-ni"
  335.       strLCID = 19466 ' Spanish(Nicaragua) 
  336.     Case "es-pr"
  337.       strLCID = 20490 ' Spanish(Puerto Rico) 
  338.     Case "sx"
  339.       strLCID = 1072  ' Sutu 
  340.     Case "sv"
  341.       strLCID = 1053  ' Swedish 
  342.     Case "sv-fi"
  343.       strLCID = 2077  ' Swedish(Finland) 
  344.     Case "th"
  345.       strLCID = 1054  ' Thai 
  346.     Case "ts"
  347.       strLCID = 1073  ' Tsonga 
  348.     Case "tn"
  349.       strLCID = 1074  ' Tswana 
  350.     Case "tr"
  351.       strLCID = 1055  ' Turkish 
  352.     Case "uk"
  353.       strLCID = 1058  ' Ukrainian 
  354.     Case "ur"
  355.       strLCID = 1056  ' Urdu 
  356.     Case "ve"
  357.       strLCID = 1075  ' Venda 
  358.     Case "vi"
  359.       strLCID = 1066  ' Vietnamese 
  360.     Case "xh"
  361.       strLCID = 1076  ' Xhosa 
  362.     Case "ji"
  363.       strLCID = 1085  ' Yiddish 
  364.     Case "zu"
  365.       strLCID = 1077  ' Zulu 
  366.     Case Else
  367.       strLCID = 2048  ' default
  368.   End Select 
  369.  
  370.     Session.LCID = strLCID
  371.  
  372. End Sub
  373.  
  374. %>
  375.  
  376.  
  377. <SCRIPT FOR=window EVENT=onload language=JScript>
  378.     HelpText.style.display = "none";
  379.     window.navigate ("<%=G_sURL%>");
  380. </SCRIPT>
  381.  
  382.  
  383. <html id="HelpText">
  384.     <head>
  385.           <meta http-equiv="Content-Type" content="text/html; charset=utf-8">  
  386.     </head>
  387.     <body>
  388.         <P> <B> <%=Server.HTMLEncode(L_CLIENTSIDESCRIPT_TEXT1)%> </B> </P>
  389.         <P> <%=Server.HTMLEncode(L_CLIENTSIDESCRIPT_TEXT2)%> </P>
  390.         <P> <%=Server.HTMLEncode(L_CLIENTSIDESCRIPT_TEXT3)%> </P>
  391.         <P> <B> <%=Server.HTMLEncode(L_CLIENTSIDESCRIPT_TEXT4)%> </B></P>
  392.             <OL Type="1">
  393.                <LI> <%=Server.HTMLEncode(L_CLIENTSIDESCRIPT_TEXT5)%> </LI>
  394.                <LI> <%=Server.HTMLEncode(L_CLIENTSIDESCRIPT_TEXT6)%> </LI>
  395.                <LI> <%=Server.HTMLEncode(L_CLIENTSIDESCRIPT_TEXT7)%> </LI> 
  396.             </OL>
  397.  
  398.   </body>
  399. </html>
  400.